home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / c2p.asm < prev    next >
Assembly Source File  |  1997-01-31  |  2KB  |  124 lines
  1. ;=========================================================
  2. ; 
  3. ; This chunky2planar routine was made by Ludde/Encore.
  4. ;
  5. ; You may uses it for whatever you want, but if you do
  6. ; it would be nice if you gave me credits if you release 
  7. ; anything! :)
  8. ;
  9. ; Send bug-reports, comments, optimise-tips, etc to:
  10. ;               
  11. ;     e-mail: ludvigp@ifi.uio.no       
  12. ;
  13. ;==========================================================
  14.  
  15.     IFD    _PHXASS_
  16.     MACHINE    68030
  17.     ENDIF
  18.  
  19.     incdir    "Include:"
  20.     include    "Ludde/Startup_macros.i"
  21.     include    "hardware/custom.i"
  22.  
  23. ;------------------ Startup Options ------------------------
  24.  
  25. KillSystem
  26. SaveInterrupts
  27. NewCopperList
  28.  
  29. ScreenWidth        =    320
  30. ScreenHeight        =    128
  31. Bitplanes        =    8
  32.  
  33. ScreenSize        =    ScreenWidth*ScreenHeight
  34. BitplaneSize        =    ScreenSize/8
  35.  
  36. ;-----------------------------------------------------------
  37.  
  38. ChunkyWidth        =    160
  39. ChunkyHeight        =    128
  40.  
  41. ChunkyPixels        =    ChunkyWidth*ChunkyHeight
  42.  
  43. ;ClearChunkyBuffer
  44.  
  45.     Section    MainProgram,code
  46.  
  47. j:
  48.     SaveSystem
  49.  
  50.     ClrINT    ALL
  51.     ClrINTQ    ALL
  52.     ClrDMA    ALL    
  53.  
  54.     jsr    SetupCopperList
  55.  
  56.     move.l    VectorBase,a0
  57.     move.l    #Lev3InterruptHandler,$6c(a0)
  58.  
  59.     SetDMA    DMAF_MASTER!DMAF_RASTER!DMAF_COPPER!DMAF_BLITTER!DMAF_SPRITE
  60.     SetINT    INTF_INTEN!INTF_VERTB
  61.  
  62. MainLoop:
  63.     RastPos    s_Render_time
  64.     bsr    Render
  65.     RastPos    e_Render_time
  66.  
  67.                                         ;Different routines:
  68.     jsr    c2p_2_Pass        ;1 cpu pass   = c2p_1_pass
  69.                     ;2 cpu passes = c2p_2_pass
  70.  
  71.     WaitMouse    MLeft,MainLoop
  72.  
  73.     RestoreSystem
  74.  
  75.     move.w    e_Render_time(pc),d0
  76.     sub.w    s_Render_time(pc),d0        ;Cpu c2p rastertime
  77.  
  78.     moveq    #0,d1
  79.     move.w    e_c2p_time(pc),d1
  80.     sub.w    s_c2p_time(pc),d1        ;Cpu c2p rastertime
  81.  
  82.     move.l    TellFrames,d7
  83.     muls.l    #50,d7
  84.     divs.l    TellTicks,d7            ;Average Frame Rate
  85.  
  86.     rts    
  87.  
  88. s_c2p_time:    dc.w    0
  89. e_c2p_time:    dc.w    0
  90. s_Render_time:    dc.w    0
  91. e_Render_time:    dc.w    0
  92. ;-----------------------------------------------------RENDER
  93.  
  94. Render:
  95.  
  96.             ; Here YOU do your stuff! :)
  97.                         
  98.     rts
  99.  
  100. ;-----------------------------------------------------
  101.  
  102.     Section ChunkyStuff,data
  103.     
  104. ;    blk.b    ChunkyPixels,"*"            ;Safety!
  105. ChunkyBuffer:
  106.     blk.b    ChunkyPixels,50
  107. ;    blk.b    ChunkyPixels,"*"            ;Safety!
  108.  
  109.  
  110. ;-----------------------------------------------------------------------------
  111.     include    "src3:wws/Blitter_c2p.i"
  112.     include    "Include:Ludde/Startup_code.i"
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.